(* Mathematica Package *)

(* Created by the Wolfram Workbench 24.08.2013 *)

BeginPackage["PunctuatedEquilibrium`", {"JLink`"}]

PunctuatedEquilibrium::usage = "PunctuatedEquilibrium  "
(* Exported symbols added here with SymbolName::usage *) 

Begin["`Private`"]
(* Implementation of the package *)
PunctuatedEquilibrium[parameterOne_,parameterTwo_] := 
	Module[{model,parameters,populationSize,numberOfGenerations,firstParameter,secondParameter},
		populationSize = 100;
		numberOfGenerations = 1000;
		firstParameter = parameterOne;
		secondParameter = parameterTwo;
		
		parameters = JavaNew["punctuatedEquilibrium.SimulationParameters",populationSize,numberOfGenerations,firstParameter,secondParameter]; 
		model = JavaNew["punctuatedEquilibrium.PunctuatedEquilibriumModel",parameters];
		model@runSimulation[];
		model@reportArrayContainingData[]
	]
	
End[]

EndPackage[]

